home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2004 December
/
2004-12 CHIP.iso
/
Internet
/
The Bat! Professional 3.01
/
thebat_professional.msi
/
Data1.cab
/
thebat.exe
/
0
/
RCDATA
/
TADDRWINDOW
/
TADDRWINDOW.txt
Wrap
Text File
|
2004-10-12
|
25KB
|
1,031 lines
object AddrWindow: TAddrWindow
Left = 339
Top = 263
Width = 588
Height = 474
HelpContext = 10043
Caption = 'Address Book'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = True
Position = poDefaultPosOnly
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object sBar: TStatusBar
Left = 0
Top = 401
Width = 580
Height = 19
Panels = <>
SimplePanel = True
end
object dsTop: TDock97
Left = 0
Top = 0
Width = 580
Height = 33
BoundLines = [blTop]
object tbSearch: TToolbar97
Left = 182
Top = 0
Caption = 'Search'
DockedTo = dsTop
DockPos = 182
TabOrder = 1
OnClose = tbSearchClose
object bSearch: TToolbarButton97
Left = 0
Top = 0
Width = 28
Height = 28
Hint = 'Perform search'
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = bSearchClick
end
object ToolbarSep971: TToolbarSep97
Left = 28
Top = 0
end
object bCancel: TToolbarButton97
Left = 239
Top = 0
Width = 29
Height = 28
Hint = 'Cancel current search'
Enabled = False
ParentShowHint = False
ShowHint = True
OnClick = bCancelClick
end
object ToolbarSep973: TToolbarSep97
Left = 233
Top = 0
end
object eSearch: TEdit97
Left = 34
Top = 4
Width = 199
Height = 19
Hint = 'Quick search'
PopupMenu = pmSearch
TabOrder = 0
OnChange = eSearchChange
OnKeyDown = eSearchKeyDown
end
end
object tbCommon: TToolbar97
Left = 0
Top = 0
Caption = 'Address Book Toolbar'
DockedTo = dsTop
DockPos = 0
HideWhenInactive = False
PopupMenu = bPopup
TabOrder = 0
OnClose = tbCommonClose
object bNewUser: TToolbarButton97
Left = 28
Top = 0
Width = 28
Height = 28
Hint = 'Create a new contact'
ParentShowHint = False
ShowHint = True
OnClick = mNewAddrClick
end
object bNewGroup: TToolbarButton97
Left = 56
Top = 0
Width = 28
Height = 28
Hint = 'Create a new group'
ParentShowHint = False
ShowHint = True
OnClick = mNewGroupClick
end
object bEdit: TToolbarButton97
Left = 84
Top = 0
Width = 28
Height = 28
Hint = 'Edit properties'
ParentShowHint = False
ShowHint = True
OnClick = mEditPropsClick
end
object bMail: TToolbarButton97
Left = 0
Top = 0
Width = 28
Height = 28
Hint = 'Create a message'
ParentShowHint = False
ShowHint = True
OnClick = bMailClick
end
object bDelete: TToolbarButton97
Left = 140
Top = 0
Width = 28
Height = 28
Hint = 'Delete'
ParentShowHint = False
ShowHint = True
OnClick = mDeleteClick
end
object bPrint: TToolbarButton97
Left = 112
Top = 0
Width = 28
Height = 28
Hint = 'Print'
ParentShowHint = False
ShowHint = True
OnClick = bPrintClick
end
end
end
object dsBottom: TDock97
Left = 0
Top = 392
Width = 580
Height = 9
Position = dpBottom
end
object bbCancel: TButton
Left = 0
Top = 0
Width = 0
Height = 0
Cancel = True
Caption = 'bbCancel'
TabOrder = 3
TabStop = False
OnClick = bbCancelClick
end
object pnAligner: TPanel
Left = 0
Top = 33
Width = 580
Height = 359
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
TabOrder = 4
object spContact: TSplitter
Left = 187
Top = 2
Height = 355
AutoSnap = False
MinSize = 1
ResizeStyle = rsUpdate
end
object pnTree: TPanel
Tag = 11
Left = 2
Top = 2
Width = 185
Height = 355
Align = alLeft
TabOrder = 0
object lTree: TTreeView
Left = 1
Top = 10
Width = 183
Height = 344
Align = alClient
BorderStyle = bsNone
HideSelection = False
Images = lImages
Indent = 23
PopupMenu = GridPopup
TabOrder = 0
OnChange = lTreeChange
OnDblClick = mEditPropsClick
OnDragDrop = lTreeDragDrop
OnDragOver = lTreeDragOver
OnEdited = lTreeEdited
OnEditing = lTreeEditing
OnKeyDown = gAddrKeyDown
OnMouseDown = lTreeMouseDown
end
object dsTree: TDock97
Left = 1
Top = 1
Width = 183
Height = 9
end
end
object Book: TNotebook
Left = 190
Top = 2
Width = 388
Height = 355
Align = alClient
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'Default'
object pnHolder: TPanel
Tag = 11
Left = 0
Top = 0
Width = 388
Height = 355
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
TabOrder = 0
object pnHeader: TPanel
Left = 2
Top = 2
Width = 384
Height = 18
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object hAddr: THeaderControl
Left = 0
Top = 0
Width = 360
Height = 18
Hint = 'nograb'
Align = alClient
Sections = <
item
ImageIndex = -1
Text = 'Name'
Width = 151
end
item
ImageIndex = -1
Text = 'E-mail'
Width = 96
end
item
Alignment = taCenter
ImageIndex = -1
Text = 'Alias'
Width = 69
end
item
Alignment = taCenter
ImageIndex = -1
Text = 'Menu'
Width = 38
end
item
ImageIndex = -1
Text = 'Phone'
Width = 78
end>
OnSectionResize = hAddrSectionResize
OnMouseDown = hAddrMouseDown
end
object pnSpin: TPanel
Left = 360
Top = 0
Width = 24
Height = 18
Align = alRight
TabOrder = 1
object udAddr: TUpDown
Left = 0
Top = 0
Width = 24
Height = 18
Min = 1
Max = 4
Orientation = udHorizontal
Position = 1
TabOrder = 0
end
end
end
object gAddr: TAddressBookGrid
Left = 2
Top = 20
Width = 384
Height = 333
Align = alClient
BorderStyle = bsNone
DefaultRowHeight = 18
DefaultDrawing = False
FixedCols = 0
RowCount = 25
FixedRows = 0
GridLineWidth = 0
Options = [goEditing, goThumbTracking]
ParentShowHint = False
PopupMenu = GridPopup
ShowHint = False
TabOrder = 1
OnDblClick = gAddrDblClick
OnKeyDown = gAddrKeyDown
OnKeyPress = gAddrKeyPress
OnMouseDown = gAddrMouseDown
OnMouseMove = gAddrMouseMove
OnStartDrag = gAddrStartDrag
Header = hAddr
Spin = udAddr
ReadOnly = False
ColWidths = (
151
96
69
38
78)
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'DBGrid'
object pnDBGrid: TPanel
Left = 0
Top = 0
Width = 409
Height = 311
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object dbHeader: THeaderControl
Left = 0
Top = 0
Width = 409
Height = 17
Sections = <
item
ImageIndex = -1
MaxWidth = 24
MinWidth = 24
Width = 24
end
item
ImageIndex = -1
Width = 200
end>
end
object dbGrid: TADBGrid
Left = 0
Top = 17
Width = 409
Height = 294
Align = alClient
ColCount = 2
DefaultRowHeight = 18
DefaultDrawing = False
FixedCols = 0
FixedRows = 0
GridLineWidth = 0
Options = []
PopupMenu = dbPopup
TabOrder = 1
SortBy = 0
Header = dbHeader
end
end
end
end
end
object tmSearch: TTimer
Interval = 100
OnTimer = tmSearchTimer
Left = 88
Top = 81
end
object GridPopup: TPopupMenu
OnPopup = mEditMenuClick
Left = 268
Top = 105
object New1: TMenuItem
Caption = '&New'
object mmNewAddr: TMenuItem
Caption = '&Contact...'
OnClick = mNewAddrClick
end
object mmNewGroup: TMenuItem
Caption = '&Group...'
OnClick = mNewGroupClick
end
object N9: TMenuItem
Caption = '-'
end
object mmMsg: TMenuItem
Caption = '&Message'
ShortCut = 16397
OnClick = bMailClick
end
object mlMsgTo: TMenuItem
Caption = 'Message &to'
Visible = False
end
object gpmChat: TMenuItem
Tag = 1
Caption = 'Chat'
OnClick = bMailClick
end
end
object N10: TMenuItem
Caption = '-'
end
object mmCopy: TMenuItem
Caption = '&Copy'
OnClick = mCopyClick
end
object mmCut: TMenuItem
Caption = 'C&ut'
OnClick = mCutClick
end
object mmPaste: TMenuItem
Caption = 'P&aste'
OnClick = mmPasteClick
end
object mmDelete: TMenuItem
Caption = '&Delete'
OnClick = mDeleteClick
end
object N19: TMenuItem
Caption = '-'
end
object Properties1: TMenuItem
Caption = '&Properties...'
Default = True
ShortCut = 32781
OnClick = mEditPropsClick
end
end
object pmSearch: TPopupMenu
OnPopup = pmSearchPopup
Left = 372
Top = 145
object msFilter: TMenuItem
Caption = '&Filter'
Default = True
ShortCut = 13
OnClick = msFilterClick
end
object msFilterColumn: TMenuItem
Caption = 'Filter &Column'
ShortCut = 8205
OnClick = msFilterColumnClick
end
object msFindNext: TMenuItem
Caption = 'Find &Next'
ShortCut = 16397
OnClick = msFindPrevClick
end
object msFindPrev: TMenuItem
Tag = 1
Caption = 'Find &Previous'
ShortCut = 24589
OnClick = msFindPrevClick
end
object bCancelFilter: TMenuItem
Caption = 'Cancel Filtering/&Refresh'
ShortCut = 27
OnClick = bCancelFilterClick
end
object N11: TMenuItem
Caption = '-'
end
object msUndo: TMenuItem
Caption = '&Undo'
OnClick = msUndoClick
end
object N13: TMenuItem
Caption = '-'
end
object msCut: TMenuItem
Caption = 'C&ut'
ShortCut = 16472
OnClick = msCutClick
end
object msCopy: TMenuItem
Caption = 'C&opy'
ShortCut = 16451
OnClick = msCopyClick
end
object msPaste: TMenuItem
Caption = '&Paste'
ShortCut = 16470
OnClick = msPasteClick
end
object N12: TMenuItem
Caption = '-'
end
object msSelectAll: TMenuItem
Caption = 'Select all'
OnClick = msSelectAllClick
end
end
object LDAP1: TLDAPClient
AutoBind = True
Server = 'mail.ritlabs.com'
User = 'cn=Directory Manager'
Password = 'casper88'
SearchDerefAliases = ldaNever
SearchScope = lssSingleLevel
SearchSizeLimit = 200
SearchTimeLimit = 0
Port = 389
Authentication = laNone
OnConnectFail = LDAP1ConnectFail
OnBind = LDAP1Bind
OnBindFail = LDAP1BindFail
OnFound = LDAP1Found
OnSearchDone = LDAP1SearchDone
Left = 128
Top = 216
end
object tmLdapSearch: TTimer
Enabled = False
Interval = 2000
OnTimer = tmLdapSearchTimer
Left = 96
Top = 208
end
object bPopup: TPopupMenu
OnPopup = bPopupPopup
Left = 236
Top = 224
object m_Undo: TMenuItem
Caption = '&Undo'
OnClick = m_UndoClick
end
object m_Sep1: TMenuItem
Caption = '-'
end
object m_Copy: TMenuItem
Caption = '&Copy'
OnClick = m_CopyClick
end
object m_Cut: TMenuItem
Caption = 'C&ut'
OnClick = m_CutClick
end
object m_Paste: TMenuItem
Caption = '&Paste'
OnClick = m_PasteClick
end
object m_SelectAll: TMenuItem
Caption = '&Select all'
OnClick = m_SelectAllClick
end
object m_FavSep: TMenuItem
Caption = '-'
end
end
object lImages: TImageList
Height = 20
Width = 20
Left = 252
Top = 144
end
object ImageList1: TImageList
Height = 20
Width = 20
Left = 284
Top = 144
end
object dbPopup: TPopupMenu
OnPopup = mEditMenuClick
Left = 352
Top = 97
object MenuItem1: TMenuItem
Caption = '&New'
Default = True
object MenuItem2: TMenuItem
Caption = '&Contact...'
OnClick = mNewAddrClick
end
object MenuItem4: TMenuItem
Caption = '-'
end
object dbMsg: TMenuItem
Caption = '&Message'
Default = True
ShortCut = 16397
OnClick = bMailClick
end
end
object MenuItem6: TMenuItem
Caption = '-'
end
object dbCopy: TMenuItem
Caption = '&Copy'
OnClick = mCopyClick
end
object dbCut: TMenuItem
Caption = 'C&ut'
OnClick = mCutClick
end
object dbPaste: TMenuItem
Caption = 'P&aste'
OnClick = mmPasteClick
end
object dbDelete: TMenuItem
Caption = '&Delete'
ShortCut = 46
OnClick = mDeleteClick
end
object MenuItem11: TMenuItem
Caption = '-'
end
object dbProps: TMenuItem
Caption = '&Properties...'
ShortCut = 32781
OnClick = mEditPropsClick
end
end
object MainMenu1: TMainMenu
Left = 200
Top = 72
object mFile: TMenuItem
Caption = '&File'
OnClick = mFileClick
object mNewMsg: TMenuItem
Caption = '&New message'
OnClick = bMailClick
end
object mMsgTo: TMenuItem
Caption = 'Ne&w message to'
Visible = False
end
object mmChat: TMenuItem
Tag = 1
Caption = 'New chat'
OnClick = bMailClick
end
object mNewQT: TMenuItem
Caption = 'New message using &template'
Enabled = False
end
object mMassMail: TMenuItem
Tag = 1
Caption = '&Mass mailing using template'
Enabled = False
end
object mNewAbk: TMenuItem
Caption = 'New &Address Book...'
OnClick = mNewAbkClick
end
object mOpen: TMenuItem
Caption = '&Open address book...'
ShortCut = 16463
OnClick = mOpenClick
end
object mmImport: TMenuItem
Caption = '&Import from'
OnClick = mmImportClick
object mImportLDIF: TMenuItem
Tag = 1
Caption = '&LDIF file'
OnClick = mImportFile
end
object mImportVCF: TMenuItem
Tag = 8
Caption = '&Business Card (vCard)'
OnClick = mImportFile
end
object mImportAddressList: TMenuItem
Tag = 5
Caption = '&Address List (plain text)'
OnClick = mImportFile
end
object mImportComma: TMenuItem
Tag = 2
Caption = '&Comma-separated (plain text)'
OnClick = mImportFile
end
object mImportTab: TMenuItem
Tag = 3
Caption = '&Tab-delimited (plain text)'
OnClick = mImportFile
end
object mImportINI: TMenuItem
Tag = 4
Caption = '&INI file'
OnClick = mImportFile
end
object N17: TMenuItem
Caption = '-'
end
object mImportBatNew: TMenuItem
Tag = 10
Caption = '&The Bat! Address Book'
OnClick = mImportFile
end
object mImportBat: TMenuItem
Tag = 6
Caption = 'The Bat! Address Book (old v1.0-format)'
OnClick = mImportFile
end
object mImportEudora: TMenuItem
Tag = 7
Caption = '&Eudora Address Book'
OnClick = mImportFile
end
object mImportTag: TMenuItem
Tag = 9
Caption = '&Pegasus Tag File'
OnClick = mImportFile
end
object mImportOutlook: TMenuItem
Caption = 'Microsoft &Outlook Contacts'
OnClick = mImportOutlookClick
end
object mImportOutlookExpress: TMenuItem
Caption = 'Outlook Express (&Windows Address Book)'
OnClick = mImportOutlookExpressClick
end
end
object mmExport: TMenuItem
Caption = '&Export to'
object mExportLDIF: TMenuItem
Tag = 1
Caption = '&LDIF file'
OnClick = mExportLDIFClick
end
object mExportVCF: TMenuItem
Tag = 6
Caption = '&Business card (vCard)'
OnClick = mExportLDIFClick
end
object mExportAddressList: TMenuItem
Tag = 5
Caption = '&Address List (Plain text)'
OnClick = mExportLDIFClick
end
object mExportCSV: TMenuItem
Tag = 2
Caption = '&Comma-separated (Plain text)'
OnClick = mExportLDIFClick
end
object mExportTSV: TMenuItem
Tag = 3
Caption = '&Tab-delimited (Plain text)'
OnClick = mExportLDIFClick
end
object mExportINI: TMenuItem
Tag = 4
Caption = '&INI file'
OnClick = mExportLDIFClick
end
object N16: TMenuItem
Caption = '-'
end
object mExportSelection: TMenuItem
Caption = '&Export selection...'
OnClick = mExportSelectionClick
end
end
object Test1: TMenuItem
Caption = 'Test'
ShortCut = 16505
Visible = False
OnClick = Test1Click
end
object mRecover: TMenuItem
Caption = 'Recover'
ShortCut = 57426
Visible = False
OnClick = mRecoverClick
end
object mProfileSep: TMenuItem
Caption = '-'
end
object mSaveProfile: TMenuItem
Caption = 'Save Address Book Set as...'
OnClick = mSaveProfileClick
end
object mLoadProfile: TMenuItem
Caption = 'Load Address Book Set...'
OnClick = mLoadProfileClick
end
object N15: TMenuItem
Caption = '-'
end
object mSearch: TMenuItem
Caption = 'Search...'
ShortCut = 118
OnClick = bSearchClick
end
object N18: TMenuItem
Caption = '-'
end
object mPrint: TMenuItem
Caption = '&Print...'
OnClick = bPrintClick
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object mEditMenu: TMenuItem
Caption = '&Edit'
OnClick = mEditMenuClick
object mNewAddr: TMenuItem
Caption = 'New &Contact...'
ShortCut = 16468
OnClick = mNewAddrClick
end
object mNewGroup: TMenuItem
Caption = 'New &Group'
ShortCut = 16455
OnClick = mNewGroupClick
end
object N8: TMenuItem
Caption = '-'
end
object mCut: TMenuItem
Caption = 'C&ut'
ShortCut = 16472
OnClick = mCutClick
end
object mCopy: TMenuItem
Caption = 'C&opy'
ShortCut = 16451
OnClick = mCopyClick
end
object mPaste: TMenuItem
Caption = 'P&aste'
ShortCut = 16470
OnClick = mmPasteClick
end
object mDelete: TMenuItem
Caption = '&Delete'
OnClick = mDeleteClick
end
object mEditProps: TMenuItem
Caption = '&Properties...'
OnClick = mEditPropsClick
end
object N6: TMenuItem
Caption = '-'
end
object mSelectAll: TMenuItem
Caption = '&Select all'
ShortCut = 16449
OnClick = mSelectAllClick
end
end
object Tools1: TMenuItem
Caption = '&View'
object mvToolbar: TMenuItem
Caption = '&Toolbar'
Checked = True
OnClick = mvToolbarClick
end
object mvQSearch: TMenuItem
Caption = 'Search T&oolbar'
Checked = True
OnClick = mvQSearchClick
end
object mvCA: TMenuItem
Caption = 'Certificate databases'
Checked = True
OnClick = mvCAClick
end
object N14: TMenuItem
Caption = '-'
end
object mvColumns: TMenuItem
Caption = '&Columns...'
OnClick = mvColumnsClick
end
object mSortBy: TMenuItem
Caption = '&Sort by'
OnClick = mSortByClick
object mSortName: TMenuItem
Tag = -1
Caption = '&Name'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object mSortFirstName: TMenuItem
Tag = -2
Caption = '&First name'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object mSortLastName: TMenuItem
Tag = -3
Caption = '&Last name'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object mSortCompany: TMenuItem
Tag = 9
Caption = '&Company'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object N4: TMenuItem
Caption = '-'
GroupIndex = 10
end
object mSortEmail: TMenuItem
Tag = -100
Caption = '&E-mail address'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object mSortHost: TMenuItem
Tag = -31
Caption = '&Host'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object N5: TMenuItem
Caption = '-'
GroupIndex = 10
end
object mSortCity: TMenuItem
Tag = 1
Caption = 'C&ity'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object mSortState: TMenuItem
Tag = 2
Caption = '&State/province'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object mSortCountry: TMenuItem
Tag = 4
Caption = 'C&ountry'
GroupIndex = 10
RadioItem = True
OnClick = mSortNameClick
end
object N3: TMenuItem
Caption = '-'
GroupIndex = 10
end
object mSortReverse: TMenuItem
Caption = '&Reverse order'
GroupIndex = 11
OnClick = mSortReverseClick
end
end
object N7: TMenuItem
Caption = '-'
end
object mRefresh: TMenuItem
Caption = '&Refresh'
ShortCut = 116
OnClick = mRefreshClick
end
object mrNextWindow: TMenuItem
Caption = 'Next Window'
ShortCut = 119
Visible = False
OnClick = mrNextWindowClick
end
object N20: TMenuItem
Caption = '-'
GroupIndex = 11
end
object mEditShortcuts: TMenuItem
Caption = '&Edit Shortcut Keys'
GroupIndex = 11
ShortCut = 32891
OnClick = mEditShortcutsClick
end
end
end
object MenuNavigator: TMenuNavigator
Left = 426
Top = 235
end
end